﻿Public Partial Class admin_horario
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

    End Sub

    Protected Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
        Dim descripcion As String
        Dim cl As New ASI_2UFG_BL.class_admin

        descripcion = Me.TextBox1.Text
        cl.Guardar_Evaluacion("I", descripcion)
        MsgBox("todo ok", MsgBoxStyle.OkCancel)

    End Sub
End Class